home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 6 / The Arsenal Files 6 (Arsenal Computer).ISO / wordpro / we16_95g.zip / WINEDIT.MN_ < prev    next >
Text File  |  1995-12-06  |  26KB  |  749 lines
  1. ;WINEDIT.MNU file.
  2. ;
  3. ;Modifications courtesy of Don Lekei, Richard Merit, Morrie Wilson
  4. ; and many many others.  Thank you very much.
  5. ;
  6. ; Some functions, like version control and alternate grep commands, 
  7. ; are presented here but commented out.  If you have the corresponding
  8. ; utility, just delete the semicolons from column 1 and the function
  9. ; will be enabled.
  10. ;
  11. ;
  12. ;
  13. ; AutoExec Section is on top here.
  14. ;
  15.         TAB=num2char(9)
  16.         CR=strcat(num2char(13),num2char(10))
  17.         EOL=strcat(num2char(13))
  18.         Home=DirHome()
  19.         IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc
  20.  
  21. Edit Utility Menu   ; Manage WinEdit Utility menu and help files
  22.         TheFile=strcat(DirHome(),"WINEDIT.MNU")
  23.         WFileOpen(TheFile)
  24.         Drop(TheFile)
  25. ;
  26. ;Adds a function to load the error file on CTRL-E
  27. ;
  28. Read Error File  \^E ; Read WinEdit error file menu and help files
  29.         wViewOutput()
  30.  
  31. Edit Macro Menu   ; Manage WinEdit Macro menu
  32.         ; In the lite and standard versions of WinEdit,
  33.         ; the MACRO.ENC file is not editable.
  34.         ; In the Pro version, the file MACRO.MNU is used
  35.         ; and it can be edited.
  36.         level=2
  37.         a = FileLocate("WINEDIT.INI")
  38.         if FileExist(a) then level=IniReadPvt("WINEDIT","LEVEL","2",a)
  39.         if (level < 2) then Message("Edit Macro Menu","The Macro Menu cannot be edited in the Lite or Standard versions of WinEdit")
  40.         if (level < 2) then exit
  41.         ; else we can edit it
  42.         TheFile=strcat(DirHome(),"MACRO.MNU")
  43.         WFileOpen(TheFile)
  44.         Drop(TheFile)
  45.  
  46. _Key Word Help      \ +{F1}         ; Load help topic for word at cursor
  47.         call("wwwedit.dll","KEYWORDHELP")
  48. ;
  49. Insert Block
  50.  If-Else
  51.      wEdNewLine()
  52.      wEdUpLine()
  53.      ; First determine if it is C or WIL
  54.      ;debug(1)
  55.      filext = FileExtension(wGetFileName())
  56.      if filext=="WBT" || filext=="WIL" || filext=="MNU"   ; Its WIL
  57.         wEdInsString("if  xx == yy")
  58.         wEdNewLine()
  59.         wEdNewLine()
  60.         wEdInsString("else")
  61.         wEdNewLine()
  62.         wEdNewLine()
  63.         wEdInsString("endif")
  64.         wEdNewLine()
  65.         wEdUpLine()
  66.         wEdUpLine()
  67.         wEdUpLine()
  68.         wEdUpLine()
  69.      else  ;assume C
  70.         wEdInsString("if  ( xx == yy )")
  71.         wEdNewLine()
  72.         wEdInsString("   {")
  73.         wEdNewLine()
  74.         wEdNewLine()
  75.         wEdInsString("}")
  76.         wEdNewLine()
  77.         wEdLeft()
  78.         wEdLeft()
  79.         wEdLeft()
  80.         wEdInsString("else")
  81.         wEdNewLine()
  82.         wEdInsString("   {")
  83.         wEdNewLine()
  84.         wEdNewLine()
  85.         wEdInsString("}")
  86.         wEdNewLine()
  87.         wEdUpLine()
  88.         wEdUpLine()
  89.         wEdUpLine()
  90.         wEdUpLine()
  91.         wEdUpLine()
  92.         wEdUpLine()
  93.      endif
  94.      drop(s,filext)
  95.  Switch
  96.      wEdNewLine()
  97.      wEdUpLine()
  98.      filext = FileExtension(wGetFileName())
  99.      if filext=="WBT" || filext=="WIL" || filext=="MNU"   ; Its WIL
  100.         wEdNewLine()
  101.         wEdUpLine()
  102.         wEdInsString("switch switchvar")
  103.         wEdNewLine()
  104.         wEdInsString("   case 1")
  105.         wEdNewLine()
  106.         wEdInsString("   break")
  107.         wEdNewLine()
  108.         wEdNewLine()
  109.         wEdLeft()
  110.         wEdLeft()
  111.         wEdLeft()
  112.         wEdInsString("case 2")
  113.         wEdNewLine()
  114.         wEdInsString("   break")
  115.         wEdNewLine()
  116.         wEdNewLine()
  117.         wEdLeft()
  118.         wEdLeft()
  119.         wEdLeft()
  120.         wEdInsString("case 3")
  121.         wEdNewLine()
  122.         wEdInsString("   break")
  123.         wEdNewLine()
  124.         wEdNewLine()
  125.         wEdLeft()
  126.         wEdLeft()
  127.         wEdLeft()
  128.         wEdLeft()
  129.         wEdLeft()
  130.         wEdLeft()
  131.         wEdInsString("endswitch")
  132.         wEdNewLine()
  133.         wEdUpLine()
  134.         wEdUpLine()
  135.         wEdUpLine()
  136.         wEdUpLine()
  137.         wEdUpLine()
  138.         wEdUpLine()
  139.         wEdUpLine()
  140.         wEdUpLine()
  141.         wEdUpLine()
  142.      else  ;assume C
  143.         wEdInsString("switch (swvar)")
  144.         wEdNewLine()
  145.         wEdInsString("   {")
  146.         wEdNewLine()
  147.         wEdInsString("case 1:")
  148.         wEdNewLine()
  149.         wEdInsString("   break;")
  150.         wEdNewLine()
  151.         wEdNewLine()
  152.         wEdLeft()
  153.         wEdLeft()
  154.         wEdLeft()
  155.         wEdInsString("case 2:")
  156.         wEdNewLine()
  157.         wEdInsString("   break;")
  158.         wEdNewLine()
  159.         wEdNewLine()
  160.         wEdLeft()
  161.         wEdLeft()
  162.         wEdLeft()
  163.         wEdInsString("case 3:")
  164.         wEdNewLine()
  165.         wEdInsString("   break;")
  166.         wEdNewLine()
  167.         wEdNewLine()
  168.         wEdLeft()
  169.         wEdLeft()
  170.         wEdLeft()
  171.         wEdLeft()
  172.         wEdLeft()
  173.         wEdLeft()
  174.         wEdInsString("   }")
  175.         wEdNewLine()
  176.         wEdUpLine()
  177.         wEdUpLine()
  178.         wEdUpLine()
  179.         wEdUpLine()
  180.         wEdUpLine()
  181.         wEdUpLine()
  182.         wEdUpLine()
  183.         wEdUpLine()
  184.         wEdUpLine()
  185.      endif
  186.      drop(s,filext)
  187.  While
  188.      wEdNewLine()
  189.      wEdUpLine()
  190.      filext = FileExtension(wGetFileName())
  191.      if filext=="WBT" || filext=="WIL" || filext=="MNU"   ; Its WIL
  192.         wEdInsString("while xx == yy")
  193.         wEdNewLine()
  194.         wEdNewLine()
  195.         wEdInsString("endwhile")
  196.         wEdNewLine()
  197.         wEdUpLine()
  198.         wEdUpLine()
  199.      else  ;assume C
  200.         wEdInsString("while (xx == yy)")
  201.         wEdNewLine()
  202.         wEdInsString("   {")
  203.         wEdNewLine()
  204.         wEdNewLine()
  205.         wEdInsString("}")
  206.         wEdNewLine()
  207.         wEdUpLine()
  208.         wEdUpLine()
  209.      endif
  210.      drop(s,filext)
  211.  Comment block       \ +^B
  212.         filext = FileExtension(wGetFileName())
  213.         if filext=="WBT" || filext=="WIL" || filext=="MNU"  then cmt=";" ; Its WIL
  214.               else cmt="//"
  215.         s=""
  216.         ;if wGetSelState() then
  217.         s=wEdGetWord()
  218.         clipput ("%cmt%***************************************************************************%CR%")
  219.         clipappend("%cmt%** %s%%CR%")
  220.         clipappend("%cmt%** %CR%")
  221.         clipappend("%cmt%** %CR%")
  222.         clipappend ("%cmt%***************************************************************************%CR%")
  223.         wEDgotocol(1) ;insert above current line
  224.         wedstartsel()
  225.         wedendsel()
  226.         wednewline()
  227.         wEDgotocol(1) ;insert above current line
  228.         Wedpaste()
  229.         weddownline()
  230.         weddownline()
  231.         wedend()
  232.         drop(s,filext,cmt)
  233. ;
  234. ;Builds a DETAILED comment block from the label under the cursor.
  235. ;
  236.  Comment SUPER block       \ ^!B
  237.         filext = FileExtension(wGetFileName())
  238.         if filext=="WBT" || filext=="WIL" || filext=="MNU"  then cmt=";" ; Its WIL
  239.               else cmt="//"
  240.         s=""
  241.         ;if wGetSelState() then
  242.         s=wEdGetWord()
  243.         clipput ("%cmt%***************************************************************************%CR%")
  244.         clipappend("%cmt%** %s%%CR%")
  245.         clipappend("%cmt%** %CR%")
  246.         clipappend("%cmt%** %CR%")
  247.         clipappend("%cmt%** Inputs: %CR%")
  248.         clipappend("%cmt%** Outputs: %CR%")
  249.         clipappend("%cmt%** Preserves: %CR%")
  250.         clipappend("%cmt%** Corrupts: %CR%")
  251.         clipappend ("%cmt%***************************************************************************%CR%")
  252.         wEDgotocol(1) ;insert above current line
  253.         wedstartsel()
  254.         wedendsel()
  255.         wednewline()
  256.         wEDgotocol(1) ;insert above current line
  257.         Wedpaste()
  258.         weddownline()
  259.         weddownline()
  260.         wedend()
  261.         drop(s,filext,cmt)
  262. ;
  263. ;Merge File header comment file from disk
  264. ;
  265. ;Header Block    \ ^!H
  266. ;        Wedgotoline(1)
  267. ;        WedGotoCol(1)
  268. ;        wFileMerge("header")
  269.  
  270. ;
  271. ;Shells external process to produce fancy printout of a file
  272. ;         
  273. ;Hardcopy        \ ^H
  274. ;        n=wGetfilename()
  275. ;        cmd="-o=10 -l,l %n% > lpt1"
  276. ;        AskLine("Hardcopy","Enter hardcopy command:",cmd)
  277. ;        wRunCommand("DOSPRMPT.PIF /c hcopy %cmd%",@FALSE,@FALSE)
  278. ;        drop (n,cmd)
  279.  
  280. Load Help File                    ; Load a help file (no keyword lookup)
  281.         TheFile=strcat(DirHome(),"HELP\WEHELP.INI")
  282.         Keys=IniItemizePvt("HelpAll",TheFile)
  283.         KeyMax=ItemCount(Keys,@TAB)
  284.         KeyIndex=0
  285.         KeyValues=""
  286.  
  287.         :ieLoop
  288.         if KeyIndex==KeyMax then goto looped
  289.         KeyIndex=KeyIndex+1
  290.         ThisKey=ItemExtract(KeyIndex,Keys,@TAB)
  291.         if (stricmp(ThisKey,"DEFAULT")==0) then goto ieloop
  292.         ThisValue=IniReadPvt("HelpAll",ThisKey,"???",TheFile)
  293.         KeyValues=strcat(KeyValues,ThisValue,"|")
  294.         goto ieLoop
  295.         
  296.         :looped
  297.         a=ItemSelect("Select Help File",strlower(KeyValues),"|")
  298.         if a=="" then goto DONE
  299.         b = FileLocate(strcat(DirHome(),"HELP\%a%"))
  300.         if b=="" then b=FileLocate(a)
  301.         if b=="" then Message("Helpfile %a% not found","Edit %TheFile%%CR%[HelpAll] section to%CR%point to help file location%CR%or put helpfile on DOS path.")
  302.                  else WinHelp(b,"CONTENTS","")
  303.         :DONE
  304.         Drop(TheFile,Keys,KeyMax,KeyIndex,KeyValues,ThisKey,ThisValue,a,b)
  305. ;
  306. ; Open the file under the cursor or marked
  307. ;
  308. Open highlighted file    \ ^F       ; Open selected file
  309.         name = wEdGetWord()
  310.         length = strlen(name)
  311.         if length==0 then goto DONE
  312.         b = FileLocate(name)
  313.         if b == "" then Message("Open selected file","Cannot find %name%")
  314.         if b == "" then goto DONE
  315.         wFileOpen(b)
  316.         :DONE
  317.         drop(name,length,b)
  318. ;
  319. ;
  320. ;        
  321. ;Delete to end of word. A real, proper, sane one. Like the good old days!
  322. ;If the cursor is in/before text, the rest of the word will be deleted.
  323. ;If the cursor is in whitespace, the rest of the whitespace will be deleted
  324. ;If the cursor is at the end of line, the next line will be concatinated
  325. ;
  326. ;
  327. Delete to end of word   \ ^T
  328.         col = wgetcolno()             ;save current posn
  329.         wedend()
  330.         e = wgetcolno()               ;Find end of line
  331.         if col>=e then goto Dend      ;end of line -- do delete! (concat lines)
  332.         wedgotocol(col)               ;back where we started
  333.         c1=wgetchar()
  334.         wEdStartSel()
  335.         :loop
  336.         wedright()
  337.         if wgetcolno() < e then c=wgetchar()
  338.         else c=""
  339.         if !strcmp(c1," ") then if !strcmp(c," ") then goto loop
  340.         if strcmp(c1," ") then if strlen(c) then if strcmp(c,"!")>=0 then if ((strcmp(c,":")<0) || (strcmp(c,"?")>0)) then goto loop
  341.         wEdEndSel()
  342.         :Dend
  343.         wEdDelete()
  344.         drop(c)
  345. ;
  346. ;
  347. ;
  348.  
  349. Generate C Tags                   ; Index source files
  350.         ; uses the TAGS.EXE program to generate WINEDIT.MRK file
  351.         ; that the next function uses to look up function names
  352.         ; in your source
  353.         RunWait("TAGS.EXE","-om -tWINEDIT.MRK *.c")
  354.         Message("Tags","Processing complete")
  355.  
  356. Go to tag                         ; Jump to function definition
  357.         ; looks up the current word in WINEDIT.MRK, loads the file,
  358.         ; and moves the cursor to the correct line
  359.         ;DEBUG(1)
  360.         goto START
  361.         :GETWORD
  362.         a = AskLine("Go to tag", "Enter function definition to jump to:", "")
  363.         strupper(a)
  364.         len = strlen(a)
  365.         if len==0 then goto NOWORD
  366.         goto START2
  367.         :START
  368.         a=WEdGetWord()
  369.         strupper(a)
  370.         len = strlen(a)
  371.         if len==0 then goto GETWORD
  372.         :START2
  373.         b=FileLocate("winedit.mrk")
  374.         WFileOpen(b)
  375.         WFind(a,@TRUE,@FALSE)
  376.         WEdHome()
  377.         WEdStartSel()
  378.         WEdEnd()
  379.         WEdEndSel()
  380.         WEdCopy()
  381.         WWinClose()
  382.         line=ClipGet()
  383.         line2=strupper(line)
  384.         c=StrIndex(line2,a,0,@FWDSCAN)
  385.         d=StrIndex(line2," ",c,@FWDSCAN)
  386.         e=StrIndex(line2,"(",d,@FWDSCAN)
  387.         filename=StrSub(line2,d,e-d)
  388.         lineno=StrSub(line2,e+1,strlen(line2)-e-1)
  389.         WFileOpen(filename)
  390.         WEdGoToLine(lineno)
  391.         WEdHome()
  392.         Drop(len,b,line,line2,c,d,e,filename,lineno)
  393.         :NOWORD
  394.         Drop(a)
  395. ;
  396.  
  397. Grep    \      ^G             ; Run fgrep
  398.         a = "fgrep.com"
  399.         b = FileLocate(strcat(DirHome(),a))
  400.         if b=="" then b=FileLocate(a)
  401.         if b=="" then Message("Error","Fgrep utility not found.  You can download fgrep.com from our BBS.  (206)935-5198")
  402.                  then goto DONE
  403.         GrepWord = wEdGetWord()         ; Get Selected word if any
  404.         command = AskLine("Grep","Enter the grep commmand to run:","tee.com %b% -M %GrepWord% *.c")
  405.         wRunCommand(command,@TRUE,@TRUE)
  406.         :DONE
  407.         Drop(command,GrepWord,a,b);
  408.  
  409.  
  410. ;Multifile grep command. Expects to fine unix-compatable grep AND gres
  411. ;commands in the path!  It parses the result into an error file so that 
  412. ;next and previous error works 
  413. ;
  414.  
  415. ;Grep    \      ^G             ; Run fgrep
  416. ;        Tee=strcat(DirHome(),"tee.com")
  417. ;        Where=strlower(StrSub(dirget(),1,strlen(dirget())-1))
  418. ;        drv=StrSub(Where,1,2)
  419. ;        ext=strlower(fileExtension(wGetFilename()))
  420. ;        if (ext=="c"|ext=="h") then ext = "?"
  421. ;        GrepWord = wEdGetWord()         ; Get Selected word if any
  422. ;        command = GrepWord
  423. ;        command = AskLine("Grep (multifile)","Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter text to find: ","%GrepWord%")
  424. ;        wRunCommand("grep -n %command% %Where%\*.%ext%|gres '^(..[^:]*)(: )([0-9][0-9]*)(: )' '\1 \3 Error:'",@TRUE,@TRUE)
  425. ;        Drop(command,GrepWord,Tee,Where,drv)
  426. ;
  427.  
  428.  
  429. ;Improved toggle-case macro for Winedit 3.1
  430. ;
  431. Toggle case     \ ^Q
  432.         a = wGetSelState()
  433.         if a == 1 then goto selection
  434.         a = wGetChar()
  435.         if (a == StrLower(a)) then a = StrUpper(a)
  436.         else a = StrLower(a)
  437.         wEdDelete()
  438.         wEdInsString(a)
  439.         Drop(a)
  440.         exit
  441.         :selection
  442.         line = wGetLineNo()
  443.         col = wGetColNo()
  444.         wEdCut()
  445.         a=clipget()
  446.         if (a == StrLower(a)) then ClipPut(StrUpper(a))        
  447.         else ClipPut(StrLower(a))        
  448.         wEdPaste()
  449.         wEdStartSel()
  450.         wEdGotoLine(line)
  451.         wEdGotoCol(col)
  452.         wEdEndSel()
  453.         drop (a,line,col)
  454. ;
  455. ;Version Control for use with RCS
  456. ;
  457. ;&Version Control           ; RCS commands
  458. ; 
  459. ;; Lock/get file (co -l)  \ ^!F
  460. ;;        opt2="-l"
  461. ;;        goto lgf2
  462. ; Get file (co)          \ ^!O  
  463. ;        opt2=""
  464. ;        :lgf2
  465. ;        Where=StrSub(dirget(),1,strlen(dirget())-1)
  466. ;        drv=StrSub(Where,1,2)
  467. ;        b=wGetFileName()
  468. ;        if b==1 then b=""
  469. ;        if wGetSelState() then s=wEdGetWord()
  470. ;           else s=b
  471. ;        a = AskLine("RCS Checkout %opt2%", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file you want to lock:", s)
  472. ;        ParseData(a)
  473. ;        s=fileroot(param%param0%)
  474. ;        if s==fileroot(b) then wWinClose()
  475. ;           else if b!="" then if AskYesNo("%a% is not the active file.%CR% %CR%Close Files","Close all files before continuing?")==@YES then wWinCloseall()
  476. ;
  477. ;;OS/2 Version
  478. ;;        wRunCommand("%drv% |cd %Where%|wetee co %opt2% %a%",@FALSE,@TRUE)
  479. ;;        pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")
  480. ;;DOS/WIN Version
  481. ;        wRunCommand("%drv% |cd %Where%|wetee co %opt2% %a%",@TRUE,@TRUE)
  482. ;      
  483. ;         Wfileopen(b)
  484. ;        b=FileLocate(a)
  485. ;        if b=="" then goto NotFound
  486. ;          WFileOpen(b)
  487. ;          goto DONE
  488. ;        :NotFound
  489. ;          Message("Sorry", "%a% not found...")
  490. ;          goto Done
  491. ;        :DONE
  492. ;        Drop(a)
  493. ;        Drop(b,Where,drv,s)
  494. ;
  495. ; Checkin file (ci)     \ ^!I
  496. ;        Where=StrSub(dirget(),1,strlen(dirget())-1)
  497. ;        drv=StrSub(Where,1,2)
  498. ;        b=wGetFileName()
  499. ;        if b==1 then b=""
  500. ;        if wGetSelState() then s=wEdGetWord()
  501. ;           else s=b
  502. ;        a = AskLine("RCS Checkin (unlock)", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file you want to put back:",s )
  503. ;        ParseData(a)
  504. ;        s=fileroot(param%param0%)
  505. ;        if s==fileroot(b) then wWinClose() 
  506. ;           else if AskYesNo("%a% is not the active file.%CR% %CR%Close Files","Close all files before continuing?")==@YES then wWinCloseall()
  507. ;        wRunCommand("%drv% |cd %Where%|wetee ci %a%",@TRUE,@TRUE)
  508. ;;(if OS/2)     pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")
  509. ;        wfileopen(b) ; reopen original window
  510. ;        Drop(a,Where,drv,b,s)
  511. ;
  512. ; Enter any command (clean)     \ ^!C
  513. ;        Where=StrSub(dirget(),1,strlen(dirget())-1)
  514. ;        drv=StrSub(Where,1,2)
  515. ;        b=wGetFileName()
  516. ;        if b==1 then b=""
  517. ;        if wGetSelState() then s=wEdGetWord()
  518. ;           else s=strcat("rcsclean ",b)
  519. ;        a = AskLine("Any Command", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter command:", s)
  520. ;        ParseData(a)
  521. ;        s=fileroot(param%param0%)
  522. ;        if s==fileroot(b) then wWinClose()
  523. ;           else if AskYesNo("Close Files","%S% is not the active file.%CR% %CR%Close all files before continuing?")==@YES then wWinCloseall()
  524. ;        wRunCommand("%drv% |cd %Where%|%a%",@TRUE,@TRUE)
  525. ;;if OS/2        pause("OS/2 Bug","Tell the stupid OS/2 when the program is done!")
  526. ;        wfileopen(b)
  527. ;        Drop(a,b,s,Where,drv)
  528. ;
  529. ;; &Logfile Info (locked)
  530. ;;        a = AskLine("PVCS Logfile Command", "Drive:  %drv%   Dir:  %Where% %CR% %CR%Enter file for which you want logfile info:", "")
  531. ;;        a=strcat("tee vlog -BL ",a)
  532. ;;        wRunCommand(a,@TRUE,@TRUE)
  533. ;;        Drop(a,Where,drv)
  534. ;
  535. ;; &Update all source files
  536. ;;        wRunCommand("tee get -u *.??v",@TRUE,@TRUE)
  537. ;
  538. ;
  539. ;&Version Control          ; PVCS commands
  540. ; &Get a file (w/lock)
  541. ;        a = AskLine("PVCS Get (w/lock) Command", "Enter file you want to lock:", "")
  542. ;        b=strcat("tee get -L ",a)
  543. ;        wRunCommand(b,@TRUE,@TRUE)
  544. ;        Drop(b)
  545. ;        b=FileLocate(a)
  546. ;        if b=="" then goto NotFound
  547. ;          WFileOpen(b)
  548. ;          goto DONE
  549. ;        :NotFound
  550. ;          Message("???", "%a% not found...")
  551. ;          goto Done
  552. ;        :DONE
  553. ;        Drop(a)
  554. ;        Drop(b)
  555. ;
  556. ; &Put a file back (unlock)
  557. ;        a = AskLine("PVCS Put (unlock) Command", "Enter file you want to put back:", "")
  558. ;        a=strcat("tee put ",a)
  559. ;        wRunCommand(a,@TRUE,@TRUE)
  560. ;        Drop(a)
  561. ;
  562. ; &Enter any PVCS command
  563. ;        a = AskLine("PVCS Command", "Enter PVCS command:", "")
  564. ;        a=strcat("tee ",a)
  565. ;        wRunCommand(a,@TRUE,@TRUE)
  566. ;        Drop(a)
  567. ;
  568. ; &Logfile Info (locked)
  569. ;        a = AskLine("PVCS Logfile Command", "Enter file for which you want logfile info:", "")
  570. ;        a=strcat("tee vlog -BL ",a)
  571. ;        wRunCommand(a,@TRUE,@TRUE)
  572. ;        Drop(a)
  573. ;
  574. ; &Update all source files
  575. ;        wRunCommand("tee get -u *.??v",@TRUE,@TRUE)
  576. ;
  577. ;;
  578.  
  579. Utilities      ;      Select from list of utilities
  580.  &Freespace on Local Drives   ; Display free disk space on drives
  581.  
  582.         Drive=DiskScan(2)     ; 2 is the code for local hard drives
  583.         Dmax=strlen(Drive)
  584.         DIndex=1
  585.         TotalSize=0
  586.         DriveReport=""
  587.  
  588.         :COUNTSPACE
  589.         NextDrive=StrSub(Drive,Dindex,1)
  590.         a=DiskFree(NextDrive)/1024
  591.         TotalSize=a+TotalSize
  592.         DriveReport=strcat(DriveReport,NextDrive," = ",a,"K","@")
  593.         DIndex=Dindex+3  ;each entry is 3 bytes long
  594.         if DIndex<=Dmax then goto COUNTSPACE
  595.         ItemSelect("Total Space Available = %TotalSize%K",DriveReport,"@")
  596.         Drop(xxx,TotalSize,DriveReport,NextDrive,LastDrive)
  597.  
  598.  &Wallpaper                   ; Change the desktop wallpaper
  599.            DirChange(dirWindows(0))
  600.            a=FileItemize("*.BMP")
  601.            a=strcat("-None- ",a)
  602.            a=ItemSelect("Select New Wallpaper",a,@tab)
  603.            terminate(a=="","Wallpaper","No wallpaper selected")
  604.            if a=="-None-" then Wallpaper("",0)
  605.            if a=="-None-" then exit
  606.            tile=@FALSE
  607.            if FileSize(a)<40000 then tile=@TRUE  
  608.            ;if bmp size less than 40K, assume tile, else center
  609.            Wallpaper(a,tile)
  610.            drop(a,b,tile)
  611.         exit
  612.  
  613.  Paste Special Characters             ; Paste high ASCII characters to clipboard or document
  614.   Copy &FormFeed to Clipboard
  615.        Clipput(Num2char(12))
  616.   Copy &Special Characters to Document
  617.        a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|"       ;161 thru 170
  618.        b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|"       ;171 thru 180
  619.        c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|"       ;181 thru 190
  620.        d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|"       ;191 thru 200
  621.        e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|"       ;201 thru 210
  622.        f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|"       ;211 thru 220
  623.        g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|"       ;221 thru 230
  624.        h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|"       ;231 thru 240
  625.        i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|"       ;241 thru 250
  626.        j=" √| ⁿ| ²| ■|  "                       ;251 thru 255
  627.        a=strcat(a,b,c,d,e,f,g,h,i,j)
  628.        Drop(b,c,d,e,f,g,h,i,j)
  629.        a=ItemSelect("Choose a character",a,"|")
  630.        a=strsub(a,2,1)
  631.        wEdInsString(a)
  632.        Drop(a)
  633.  
  634.  
  635. _&System Information
  636.        wintype="retail"
  637.        if WinMetrics(22) then wintype="debug"
  638.         wcx=WinMetrics(-3)
  639.         math="Math"
  640.         switch wcx
  641.            case 0   ; Win16
  642.                 wc=WinConfig()
  643.                 if !(wc&1) then mode="Real"
  644.                 if wc&16 then mode="Standard"
  645.                 if wc&32 then mode="Enhanced"
  646.                 
  647.                 if wc&64 then cpu=8086
  648.                 if wc&128 then cpu=80186
  649.                 if wc&2 then cpu=286
  650.                 if wc&4 then cpu=386
  651.                 if wc&8 then cpu=486
  652.                 mode = strcat(mode,' ',wintype,' Windows ')
  653.                 if !(wc&1024)  then math="No math"
  654.                 break
  655.           case 1 ; Win32 Intel
  656.                mode="Intel 32-bit %wintype% Windows "
  657.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  658.                break
  659.           case 2 ; Dec Alpha
  660.                mode="DEC Alpha %wintype% Windows NT "
  661.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  662.                break
  663.           case 3 ; MIPS
  664.                mode="MIPS %wintype% Windows NT "
  665.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  666.                break
  667.           case 4 ; PowerPC 
  668.                mode="PowerPC %wintype% Windows NT "
  669.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  670.                break
  671.           case wcx
  672.                cpu= ItemExtract(6,WinSysInfo(),@tab)
  673.                mode="Unknown platform %wintype% Windows  "
  674.         endswitch
  675.  
  676.         Sysinfo=strcat(cpu,' ',mode,WinVersion(1),'.',WinVersion(0),@CRLF)
  677.  
  678.         mouse="No Mouse"
  679.         if WinMetrics(19) then mouse="Mouse"
  680.  
  681.         Sysinfo=strcat(sysinfo,math," co-processor.   ",mouse,' available.',@CRLF)
  682.  
  683.         sysinfo=strcat(sysinfo,WinMetrics(0),'x',WinMetrics(1)," video resolution.  ",WinMetrics(-1),"  colors.",@CRLF)
  684.  
  685.         ErrorMode(@OFF)
  686.         LastError()
  687.         PlayMedia("Status WaveForm Ready")
  688.         ErrorMode(@CANCEL)
  689.         if LastError()!=1193 then sysinfo=strcat(sysinfo,"Windows multimedia extensions present.",@CRLF)
  690.         a=NetInfo(0)
  691.         if a=="MULTINET"
  692.              b=NetInfo(1)
  693.              bug=strcat(b,"network(s) installed")
  694.              ;Message("Multinet supporting  %count% networks", b)
  695.         else
  696.              ;Message("Installed Network", a)
  697.              bug=strcat(a," network installed")
  698.         endif
  699.         sysinfo=strcat(sysinfo,bug,@crlf)
  700.  
  701.  
  702.         switch wcx
  703.            case 0
  704.                bug=WinResources(0)/1024   ; Compute memory avail
  705.                math=strlen(bug)
  706.                if math>3 then bug=strcat(strsub(bug,1,math-3),',',strsub(bug,math-2,3))
  707.                sysinfo=strcat(sysinfo,CR,bug," KB Free Memory",CR)
  708.                sysinfo=strcat(sysinfo,WinResources(2),"%% System Resources Free (",WinResources(3),"%% GDI, ",WinResources(4),"%% User)",CR)
  709.               break
  710.            case wcx
  711.               bug=WinResources(11)/1024   ; Get Physical memory avail
  712.               sysinfo=strcat(sysinfo,CR,bug," KB Physical Memory",CR)
  713.               bug=(WinResources(14)/1024)+bug   ; Get Virtual memory + Physical avail
  714.               sysinfo=strcat(sysinfo,bug," KB Total Memory",CR)
  715.         end switch
  716.  
  717.  
  718.         sysinfo=strcat(sysinfo,"Console ",DosVersion(1),'.',DosVersion(0),"  using ",environment("COMSPEC"),@CRLF)
  719.         disks=DiskScan(1)
  720.         disks=StrReplace(disks,@tab," ")
  721.         if disks!="" then sysinfo=strcat(sysinfo,"Floppies ",disks,@CRLF)
  722.         disks=DiskScan(2)
  723.         disks=StrReplace(disks,@tab," ")
  724.         if disks!="" then sysinfo=strcat(sysinfo,"Hard Disks ",disks,@CRLF)
  725.         disks=DiskScan(4)
  726.         disks=StrReplace(disks,@tab," ")
  727.         if disks!="" then sysinfo=strcat(sysinfo,"Network Disks ",disks,@CRLF)
  728.         sysinfo=strcat(sysinfo,"Windows Directory ",DirWindows(0),@CRLF)
  729.         sysinfo=strcat(sysinfo,"System  Directory ",DirWindows(1),@CRLF)
  730.         sysinfo=strcat(sysinfo,@CRLF,"WIL Interpreter Ver ",VersionDll())
  731.  
  732.         ver=Version()
  733.         Message("%Param2% %ver% SysInfo",Sysinfo)
  734.         Exit
  735.  
  736. Interactive Execution
  737.           if !IsDefined(uyit65) then uyit65="Message( , )"
  738.           :NEXT
  739.           uyit65=AskLine("Interactive Execution","Enter Command",uyit65)
  740.           execute %uyit65%
  741.           goto NEXT
  742.           
  743. _Run a WIL Script File
  744.          if wGetModified()==@TRUE then wFileSave()
  745.          TheFile = WGetFileName()
  746.          Call(TheFile,"")
  747.  
  748.         
  749.